home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / acadwin / support / acad.mnl < prev    next >
Encoding:
Text File  |  1995-02-08  |  12.5 KB  |  432 lines
  1. ;;;     ACAD.MNL (Also duplicated as ACADFULL.MNL for Windows.)
  2. ;;;     Copyright (C) 1992, 1993, 1994 by Autodesk, Inc.
  3. ;;;
  4. ;;;     Permission to use, copy, modify, and distribute this software
  5. ;;;     for any purpose and without fee is hereby granted, provided
  6. ;;;     that the above copyright notice appears in all copies and 
  7. ;;;     that both that copyright notice and the limited warranty and 
  8. ;;;     restricted rights notice below appear in all supporting 
  9. ;;;     documentation.
  10. ;;;
  11. ;;;     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.  
  12. ;;;     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF 
  13. ;;;     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 
  14. ;;;     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE 
  15. ;;;     UNINTERRUPTED OR ERROR FREE.
  16. ;;;
  17. ;;;     Use, duplication, or disclosure by the U.S. Government is subject to 
  18. ;;;     restrictions set forth in FAR 52.227-19 (Commercial Computer 
  19. ;;;     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 
  20. ;;;     (Rights in Technical Data and Computer Software), as applicable. 
  21. ;;;
  22. ;;;     AutoLISP routines used by the AutoCAD Release 13 Standard Menu.
  23. ;;;
  24. ;;;     This file is loaded automatically following the menu ACAD.  
  25.  
  26. (princ ;|ACAD_MNL_1|;"\nCargando utilidades de men· de AutoCAD Versi≤n 13 ")
  27.  
  28.  
  29. ;;;=== Icon Menu Functions ===
  30.  
  31. ;;;  View -> Layout -> Tiled Viewports...
  32.  
  33. (defun ai_tiledvp_chk (new)
  34.   (setq m:err *error* *error* *merrmsg*)
  35.   (if (= (getvar "TILEMODE") 0)
  36.     (progn
  37.       (princ ;|ACAD_MNL_2|;"\n** Comando no disponible mientras no se dΘ el valor 1 (ACT) a TILEMODE **")
  38.       (princ)
  39.     )
  40.     (progn
  41.       (if new
  42.         (menucmd "I=ACAD.IMAGE_VPORTI")
  43.         (menucmd "I=IMAGE_VPORTI")
  44.       )
  45.       (menucmd "I=*")
  46.     )
  47.   )
  48.   (setq *error* m:err m:err nil)
  49.   (princ)
  50. )
  51.  
  52. (defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
  53.   (setq m:err *error* *error* *merrmsg*
  54.         ai_tiles_cmde (getvar "CMDECHO")
  55.         ai_tiles_g (getvar "GRIDMODE")
  56.   )
  57.   (setvar "CMDECHO" 0)
  58.   (setvar "GRIDMODE" 0)
  59.   (cond ((= num 1)
  60.          (command "_.VPORTS" "_SI")
  61.          (setvar "GRIDMODE" ai_tiles_g)
  62.         )
  63.         ((< num 4)
  64.          (command "_.VPORTS" "_SI")
  65.          (command "_.VPORTS" num ori)
  66.          (setvar "GRIDMODE" ai_tiles_g)
  67.         )
  68.         ((= ori nil)
  69.          (command "_.VPORTS" "_SI")
  70.          (command "_.VPORTS" num)
  71.          (setvar "GRIDMODE" ai_tiles_g)
  72.         )
  73.         ((= ori ;|ACAD_MNL_3|;"_L")
  74.          (command "_.UNDO" "_M")
  75.          (command "_.VPORTS" "_SI")
  76.          (command "_.VPORTS" "2" "")
  77.          (setvar "CVPORT" (car (cadr (vports))))
  78.          (command "_.VPORTS" "2" "")
  79.          (command "_.VPORTS" "_J" "" (car (cadr (vports))))
  80.          (setvar "CVPORT" (car (cadr (vports))))
  81.          (command "_.VPORTS" "3" "_H")
  82.          (setvar "GRIDMODE" ai_tiles_g)
  83.          (setvar "CVPORT" (car (cadddr (vports))))
  84.          (setvar "GRIDMODE" ai_tiles_g)
  85.          (setvar "CVPORT" (car (cadddr (vports))))
  86.          (setvar "GRIDMODE" ai_tiles_g)
  87.          (setvar "CVPORT" (car (cadddr (vports))))
  88.          (setvar "GRIDMODE" ai_tiles_g)
  89.          (command "_.UNDO" "_E")
  90.         )
  91.         (T
  92.          (command "_.UNDO" "_M")
  93.          (command "_.VPORTS" "_SI")
  94.          (command "_.VPORTS" "2" "")
  95.          (command "_.VPORTS" "2" "")
  96.          (setvar "CVPORT" (car (caddr (vports))))
  97.          (command "_.VPORTS" "_J" "" (car (caddr (vports))))
  98.          (setvar "CVPORT" (car (cadr (vports))))
  99.          (command "_.VPORTS" "3" "_H")
  100.          (setvar "GRIDMODE" ai_tiles_g)
  101.          (setvar "CVPORT" (car (cadddr (vports))))
  102.          (setvar "GRIDMODE" ai_tiles_g)
  103.          (setvar "CVPORT" (car (cadddr (vports))))
  104.          (setvar "GRIDMODE" ai_tiles_g)
  105.          (setvar "CVPORT" (car (cadddr (vports))))
  106.          (setvar "GRIDMODE" ai_tiles_g)
  107.          (command "_.UNDO" "_E")
  108.         )
  109.   )
  110.   (setq *error* m:err m:err nil)
  111.   (setvar "CMDECHO" ai_tiles_cmde)
  112.   (princ)
  113. )
  114.  
  115. ;;;=== Tablet Swap Functions ===
  116.  
  117. (defun ai_tab1 ()
  118.   (setq T_Menu (read (ai_popmenucfg "T_Menu")))
  119.   (if (= (logand 1 T_Menu) 1)
  120.     (progn
  121.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (- T_Menu 1))))
  122.       (if (< (getvar "EXPERT") 4)
  123.         (princ ;|ACAD_MNL_4|;"\nArea de tablero alternativa 1 descargada.")
  124.       )
  125.       (menucmd "T1=TABLET1")
  126.       (if (< (getvar "EXPERT") 1)
  127.         (princ ;|ACAD_MNL_5|;"\nEsta ßrea estß destinada a sus aplicaciones y opciones de men· personales.\n")
  128.       )
  129.     )
  130.     (progn 
  131.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (+ T_Menu 1))))
  132.       (if (< (getvar "EXPERT") 4)
  133.         (princ ;|ACAD_MNL_6|;"\nArea de tablero alternativa 1 cargada.  ")
  134.       )
  135.       (menucmd "T1=TABLET1ALT")
  136.       (if (< (getvar "EXPERT") 1)
  137.         (princ ;|ACAD_MNL_7|;"\nEsta ßrea estß destinada a sus aplicaciones y opciones de men· personales.\n")
  138.       )
  139.     )
  140.   )
  141.   (princ)
  142. )
  143.  
  144. (defun ai_tab2 ()
  145.   (setq T_Menu (read (ai_popmenucfg "T_Menu")))
  146.   (if (= (logand 2 T_Menu) 2)
  147.     (progn
  148.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (- T_Menu 2))))
  149.       (if (< (getvar "EXPERT") 4)
  150.         (princ ;|ACAD_MNL_8|;"\nArea de tablero alternativa 2 descargada.  ")
  151.       )
  152.       (menucmd "T2=TABLET2")
  153.       (if old_wv (setvar "WORLDVIEW" old_wv))
  154.       (if (< (getvar "EXPERT") 1)
  155.         (princ ;|ACAD_MNL_9|;"\nLos comandos operan de forma transparente: PTOVISTA y VISTADIN en modo Worldview.\n")
  156.       )
  157.     )
  158.     (progn
  159.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (+ T_Menu 2))))
  160.       (setq old_wv (getvar "WORLDVIEW"))
  161.       (setvar "WORLDVIEW" 0)
  162.       (if (< (getvar "EXPERT") 4)
  163.         (princ ;|ACAD_MNL_10|;"\nArea de tablero alternativa 2 cargada  ")
  164.       )
  165.       (menucmd "T2=TABLET2ALT")
  166.       (if (< (getvar "EXPERT") 1)
  167.         (princ ;|ACAD_MNL_11|;"\nZOOM y otros comandos suponen un Ctrl+C: PTOVISTA y VISTADIN en modo SCP actual.\n")
  168.       )
  169.     )
  170.   )
  171.   (princ)
  172. )
  173.  
  174. (defun ai_tab3 ()
  175.   (setq T_Menu (read (ai_popmenucfg "T_Menu")))
  176.   (if (= (logand 4 T_Menu) 4)
  177.     (progn
  178.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (- T_Menu 4))))
  179.       (if (< (getvar "EXPERT") 4)
  180.         (princ ;|ACAD_MNL_12|;"\nArea de tablero alternativa 3 descargada  ")
  181.       )
  182.       (menucmd "T3=TABLET3")
  183.       (if (< (getvar "EXPERT") 1)
  184.         (princ ;|ACAD_MNL_13|;"\nSeleccione unidades inglesas en el men· numΘrico.\n")
  185.       )
  186.     )
  187.     (progn
  188.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (+ T_Menu 4))))
  189.       (if (< (getvar "EXPERT") 4)
  190.         (princ ;|ACAD_MNL_14|;"\nArea de tablero alternativa 3 cargada  ")
  191.       )
  192.       (menucmd "T3=TABLET3ALT")
  193.       (if (< (getvar "EXPERT") 1)
  194.         (princ ;|ACAD_MNL_15|;"\nSeleccione unidades mΘtricas.\n")
  195.       )
  196.     )
  197.   )
  198.   (princ)
  199. )
  200.  
  201. (defun ai_tab4 ()
  202.   (setq T_Menu (read (ai_popmenucfg "T_Menu")))
  203.   (if (= (logand 8 T_Menu) 8)
  204.     (progn
  205.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (- T_Menu 8))))
  206.       (if (< (getvar "EXPERT") 4)
  207.         (princ ;|ACAD_MNL_16|;"\nArea de tablero alternativa 4 descargada  ")
  208.       )
  209.       (menucmd "T4=TABLET4")
  210.       (if (< (getvar "EXPERT") 1)
  211.         (princ ;|ACAD_MNL_17|;"\nPredominan los modos de referencia a objetos: NO se repiten los comandos.\n")
  212.       )
  213.     )
  214.     (progn
  215.       (ai_putmenucfg "T_Menu" (itoa (setq T_Menu (+ T_Menu 8))))
  216.       (if (< (getvar "EXPERT") 4)
  217.         (princ ;|ACAD_MNL_18|;"\nArea de tablero alternativa 4 cargada  ")
  218.       )
  219.       (menucmd "T4=TABLET4ALT")
  220.       (if (< (getvar "EXPERT") 1)
  221.         (princ ;|ACAD_MNL_19|;"\nReferencia a objetos requiere la ejecuci≤n de modos implφcitos: los comandos se repiten.\n")
  222.       )
  223.     )
  224.   )
  225.   (princ)
  226. )
  227.  
  228. ;;;=== General Utility Functions ===
  229.  
  230. ;;; ai_popmenucfg -- retrieve parameter from cfg settings
  231. ;;; <param> is a string specifiying the parameter
  232.  
  233. (defun ai_popmenucfg (param)
  234.   (set (read param) (getcfg (strcat "CfgData/Menu/" param)))
  235. )
  236.  
  237. ;;; ai_putmenucfg -- store parameter in cfg settings
  238. ;;; <param> is a string specifiying the parameter
  239. ;;; <cfgval> is the value for that parameter
  240.  
  241. (defun ai_putmenucfg (param cfgval)
  242.   (setcfg (strcat "CfgData/Menu/" param) cfgval)
  243. )
  244.  
  245. (defun *merr* (msg)
  246.   (setq *error* m:err m:err nil)
  247.   (princ)
  248. )
  249.  
  250. (defun *merrmsg* (msg)
  251.   (princ msg)
  252.   (setq *error* m:err m:err nil)
  253.   (princ)
  254. )
  255.  
  256. (defun c:rectang ( / cmde pt1 pt2)
  257.   (setq m:err *error* *error* *merr*
  258.         cmde (getvar "CMDECHO")
  259.   )
  260.   (setvar "CMDECHO" 0)
  261.   (setq pt1 (getpoint ;|ACAD_MNL_20|;"\nPrimera esquina: ")
  262.         pt2 (getcorner pt1 ;|ACAD_MNL_21|;"\nEsquina opuesta: ")
  263.   )
  264.   (command "_.PLINE" pt1 "_non" (list (car pt1) (cadr pt2))
  265.                    pt2 "_non" (list (car pt2) (cadr pt1))
  266.            "_C"
  267.   )
  268.   (setvar "CMDECHO" cmde)
  269.   (setq *error* m:err m:err nil)
  270.   (princ)
  271. )
  272.  
  273. ;|ACAD_MNL_28|;                                                     
  274.  
  275. (defun ai_showedge_alert ()
  276.    (alert ;|ACAD_MNL_26|;"Las aristas invisibles se mostrarßn una vez regenerado el dibujo.")
  277.    (princ)
  278. )
  279.  
  280. (defun ai_hideedge_alert ()
  281.    (alert ;|ACAD_MNL_27|;"Las aristas invisibles se ocultarßn una vez regenerado el dibujo.")
  282.    (princ)
  283. )
  284.  
  285. ;;;=== Menu Functions ===
  286.  
  287. (defun ai_rootmenus ()
  288.   (setq T_MENU 0)
  289.   (menucmd "S=S")
  290.   (menucmd "S=ACAD.S")
  291.   (princ)
  292. )
  293.  
  294. (defun ai_fms ( / fmsa fmsb)
  295.   (setq m:err *error* *error* *merr*)
  296.   (if (getvar "TILEMODE") (setvar "TILEMODE" 0))
  297.   (setq fmsa (vports) fmsb (nth 0 fmsa))
  298.   (if (member 1 fmsb)
  299.     (if (> (length fmsa) 1)
  300.       (command "_.MSPACE")
  301.       (progn
  302.         (command "_.MVIEW")
  303.         (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
  304.           (command pause)
  305.         )
  306.         (command "_.MSPACE")
  307.       )
  308.     )
  309.   )
  310.   (setq *error* m:err m:err nil)
  311.   (princ)
  312. )
  313.  
  314. (defun ai_propchk ( / a)
  315.   (setq m:err *error* *error* *merr*)
  316.   (if (not (setq a (ssget "I")))
  317.       (setq a (ssget))
  318.   )
  319.   (if (> (sslength a) 1)
  320.     (progn
  321.       (if (not ddchprop)
  322.         (load "ddchprop")
  323.       )
  324.       (setq *error* m:err m:err nil)
  325.       (ddchprop a)
  326.     )
  327.     (progn
  328.       (if (not ddmodify)
  329.         (load "ddmodify")
  330.       )
  331.       (setq *error* m:err m:err nil)
  332.       (ddmodify (ssname a 0))
  333.     )
  334.   )
  335.   (princ)
  336. )
  337.  
  338. (defun ai_onoff (var)
  339.   (setvar var (abs (1- (getvar var))))
  340.   (princ)
  341. )
  342.  
  343.  
  344. ;;; Pop menu Draw/ Dim/ Align Text/ Centered
  345. ;;; Toolbar Dimensions/ Align Text/ Centered
  346.  
  347. (defun ai_dim_cen (/ ai_sysvar ai_dim_ss)
  348.   (setq ai_sysvar (getvar "cmdecho"))
  349.   (setvar "cmdecho" 0)
  350.   (cond
  351.     ((setq ai_dim_ss (ssget "P"))
  352.       (command "_dimoverride" "_dimjust" 0 "" ai_dim_ss "" 
  353.                "_dimtedit" ai_dim_ss "_h")
  354.     )
  355.     (T nil)
  356.   )
  357.   (setvar "cmdecho" ai_sysvar)
  358.   (princ)
  359. )
  360.  
  361. ;;; Set alternate tablet menus based on cfg settings
  362. (defun set_alt_tabs ()
  363.  
  364.    ;; check for active tablet areas
  365.    (setq T_Menu (read (ai_popmenucfg "T_Menu")))
  366.    (mapcar
  367.      '(lambda (x y z)
  368.         (if (= (logand x T_Menu) x)
  369.             (progn
  370.               (menucmd (strcat "T" y "=TABLET" y "ALT"))
  371.               (if (/= "" (getcfg "CfgData/Editor/TabletMenusActive"))
  372.                   (eval z)
  373.               )
  374.             )
  375.         )
  376.       )
  377.    '(1 2 4 8)
  378.    '("1" "2" "3" "4")
  379.    '(
  380.       (princ ;|ACAD_MNL_6|;"\nArea de tablero alternativa 1 cargada.  ")
  381.       (princ ;|ACAD_MNL_10|;"\nArea de tablero alternativa 2 cargada  ")
  382.       (princ ;|ACAD_MNL_14|;"\nArea de tablero alternativa 3 cargada  ")
  383.       (princ ;|ACAD_MNL_18|;"\nArea de tablero alternativa 4 cargada  ")
  384.     )
  385.   )
  386.    (if (and (/= "" (getcfg "CfgData/Editor/TabletMenusActive"))
  387.             (/= 0 T_Menu)
  388.        )
  389.        (terpri)
  390.    )
  391.  
  392.    (setq set_alt_tabs nil)
  393.  
  394. )
  395.  
  396. ;; If no Tablet menu data exists, insert defaults
  397. (if (or (not (setq T_Menu (ai_popmenucfg "T_Menu")))
  398.         (= "" T_Menu)
  399.     )
  400.     ;; check for hardware lock
  401.     (if (/= "" (getvar "_linfo"))
  402.         (ai_putmenucfg "T_Menu" "4")
  403.         (ai_putmenucfg "T_Menu" "0")
  404.     )
  405. )
  406.  
  407. ;;; Restore alternate tablets upon menu load
  408. (set_alt_tabs)
  409.  
  410. (setvar "MENUCTL" 1)
  411.  
  412. ;; Load AutoVision menu if AutoVision is installed, and we are on Windows.
  413. (if (and 
  414.       (wcmatch (getvar "platform") "*Windows*")
  415.       (AutoVisionPresent)
  416.     )
  417.     (progn 
  418.       (setq filedia (getvar "FILEDIA"))
  419.       (setq cmdecho (getvar "CMDECHO"))
  420.       (setvar "FILEDIA" 0)
  421.       (setvar "CMDECHO" 0)
  422.       (command "_.MENUUNLOAD" "autovis")
  423.       (command "_.MENULOAD" "autovis.mnu")
  424.       (menucmd "P7=+autovis.pop1")
  425.       (setvar "FILEDIA" filedia)
  426.       (setvar "CMDECHO" cmdecho)
  427.     )
  428. )
  429.  
  430. (princ ;|ACAD_MNL_25|;" ")
  431. (princ)
  432.